function [VecResultsRetracted,VecResultsRetracted2]=FilterAuthorsRetracted2(n5,ValueYearRetracted,ValueMonthRetracted,VecAuthorsRetracted,VecSpecialCharacters,ValueTime)

ValueFolder2='/sps/isc/rneveu/EtudeIRM/Nature/ResultsRetracted/';
ValueFolder3='/sps/isc/rneveu/EtudeIRM/Nature/ResultsJournal/';
ValueFolder='/sps/isc/rneveu/EtudeIRM/Nature/';
VecResultsRetracted=zeros(2,2);
VecResultsRetracted2=zeros(2,2);
VecResultsRetracted(:,1)=[-24;24];
VecResultsRetracted2(:,1)=[-24;24];
VecArticleType={'Academic Dissertation' 'Adaptive Clinical Trial' 'Clinical Trial' 'Comparative Study' 'Controlled Clinical Trial' 'Equivalence Trial' 'Evaluation Study' 'Journal Article' 'Meta-Analysis' 'Multicenter Study' 'Observational Study' 'Pragmatic Clinical Trial' 'Randomized Controlled Trial' 'Review' 'Statistics' 'Technical Report' 'Systematic Review' 'Twin Study' 'Validation Study'};
VecArticleType2={'Review' 'Systematic Review'};
VecDate={'Jan' 'Feb' 'Mar' 'Apr' 'May' 'Jun' 'Jul' 'Aug' 'Sep' 'Oct' 'Nov' 'Dec'};
n1Temp2=0;
% % try
%     ValueFile=['ResultsCharacteristicsTempAuthorsRetracted' num2str(n5) '.mat'];
%     ValueTemp=dir([ValueFolder2 ValueFile]);
%     if size(ValueTemp,1)>0
%         load([ValueFolder2 ValueFile]);
%         n1Temp2=n1;
%     end
% % end
n1Temp2=n1Temp2+1;
for n1=n1Temp2:1062
    eval(sprintf('load([ValueFolder ''Results/ResultsFile%d.mat'']);',n1));
    for n2=1:33
        load([ValueFolder3 'StartJournal' num2str(n2) '.mat']);
        ValueDuration1=abs((ValueYearRetracted-StartDate(1,1))*12+ValueMonthRetracted-StartDate(1,2)+ValueTime);
        ValueDuration2=abs((2020-ValueYearRetracted)*12+12-ValueMonthRetracted-ValueTime);
        ValueDurationTemp=min([ValueDuration1 ValueDuration2 24]);
        eval(sprintf('VecValueTemp=VecResult2Journal%d;',n2));
        for n3=1:size(VecValueTemp,1)
            ValueTemp=VecValueTemp{n3,1};
            ValueDate=VecValueTemp{n3,5};
            [ValueYear,ValueMonth,ValueDay]=ExtractDate(ValueDate);
            ValueYear=str2num(ValueYear);
            n4=1;
            TestTemp=0;
            while n4<=size(VecDate,2)&&TestTemp==0
                if strcmp(VecDate{1,n4},ValueMonth)==1
                    ValueMonth=n4;
                    TestTemp=1;
                else
                    n4=n4+1;
                end
            end
            if TestTemp==1
                ValueDurationRetracted=(ValueYearRetracted-ValueYear)*12+ValueMonthRetracted-ValueMonth-ValueTime;
                TestTemp2=1;
            else
                TestTemp2=0;
            end
            if size(ValueTemp,2)>1&&TestTemp2==1&&ValueDurationTemp>=abs(ValueDurationRetracted)&&ValueDurationRetracted~=0
                [ValueFirst,ValueLast,ValueAffiliation,ValueORCID,nAuthors]=ExtractAuthor(ValueTemp,0,1);
                ValueArticleType=ComputeArticleType(VecValueTemp{n3,9},VecArticleType,VecValueTemp{n3,10},VecValueTemp{n3,11});
                if ValueArticleType>0&&nAuthors>1
                    n41=1;
                    TestTemp3=0;
                    while n41<=nAuthors&&TestTemp3==0
                        [ValueFirst,ValueLast,ValueAffiliation,ValueORCID,nAuthorsTemp]=ExtractAuthor(ValueTemp,n41,2);
                        if size(ValueFirst,2)>=1
                            if strcmps(double(VecAuthorsRetracted),double([ValueLast ' ' ValueFirst(1,1)]),VecSpecialCharacters)>0.5
                                if ValueDurationRetracted>0
                                    VecResultsRetracted(2,2)=VecResultsRetracted(2,2)+1;
                                else
                                    if ValueDurationRetracted<0
                                        VecResultsRetracted(1,2)=VecResultsRetracted(1,2)+1;
                                    end
                                end
                                TestTemp3=1;
                            end
                        end
                        n41=n41+1;
                    end
                    if ValueDurationRetracted>0
                        VecResultsRetracted2(2,2)=VecResultsRetracted2(2,2)+1;
                    else
                        if ValueDurationRetracted<0
                            VecResultsRetracted2(1,2)=VecResultsRetracted2(1,2)+1;
                        end
                    end
                end
            end
        end
    end
%     if mod(n1,100)==0
%         ValueFile=['ResultsCharacteristicsTempAuthorsRetracted' num2str(n5) '.mat'];
%         save([ValueFolder2 ValueFile],'-v7.3');
%     end
end
